100 IFPEEK(44)=18THEN120
110 SM=7735:CL=30720:Q1=8141:Q2=7793:GOTO130
120 SM=4151:CL=33792:Q1=4557:Q2=4209
130 JC=37154:J1=37151:J2=37152:S1=36874:S2=36876:HS=0
140 CR$=CHR$(19):FORI=1TO23:CR$=CR$+CHR$(17):NEXT
150 POKE36878,15:POKE36879,25
160 FOR I=1TO15
170 PRINTCHR$(28)CHR$(147)LEFT$(CR$,9)SPC(8)"ALPHA"
180 PRINTSPC(7)"ANXIETY"
190 FOR J=1TO100:NEXT
200 PRINTCHR$(28)CHR$(147)LEFT$(CR$,9)SPC(8)"ALPHA"
210 PRINTSPC(7)"ANXIETY"
220 FOR J=1TO100: NEXTI
230 DIMP%(25),RL%(5,5)
240 GOSUB1240
250 RF=0:AT=0
260 DL=150
270 SC=0:MA=3:POKE36879,28
280 L1=1:L2=1:LC=1:FL=1:PO=SM:FG=0
290 IFRF=1THENLC=25
300 PRINTCHR$(147)
310 PRINTTAB(10)CHR$(144)"[176][192][178][192][178][192][178][192][178][192][174]"
320 FOR I=1TO4:PRINTTAB(10)"[221][166][221][166][221][166][221][166][221][166][221]":PRINTTAB(10)"[171][192][219][192][219][192][219][192][219][192][179]":NEXT
330 PRINTTAB(10)"[221][166][221][166][221][166][221][166][221][166][221]"
340 PRINT TAB(10) "[173][192][177][192][177][192][177][192][177][192][189]"
350 PRINT"NEXT":PRINT"LETTER:":PRINT"[176][192][174]":PRINT"[221] [221]":PRINT"[173][192][189]"
360 PRINT"TIME:":PRINT"SCORE:":PRINT"";SC:PRINT"HIGH":PRINT"SCORE:"
370 PRINT"";HS
380 IFSC<2499THENPOKEQ2+CL,5:POKEQ2,LC
390 FORI=Q1+1TOQ1+43:POKEI+CL,4:NEXT
400 TI$="000000":CS=102
410 GOSUB570
420 IFFG=1THEN280
430 IFMA=0THEN480
440 POKES2,0
450 TL=DL-INT(TI/60)
451 IFTL<=0THENTL=0
460 PRINTLEFT$(CR$,11)SPC(2)TL"[157]  "
470 IFTL>0THEN410
480 IFSC>HSTHENHS=SC
490 PRINTLEFT$(CR$,18)SPC(11)"GAME OVER!"
500 POKES1,185:FORI=1TO300:NEXT:POKES1,0:GOSUB1240
510 PRINTCHR$(147)"PRESS THE FIRE BUTTON"
520 PRINT"    TO PLAY AGAIN"
530 WAIT37137,32
540 WAIT37137,32,32
550 PRINTCHR$(147):FORT=1TO500:NEXT
560 GOTO250
570 POKEJC,127:P=PEEK(J2)AND128
580 JE=-(P=0)
590 POKEJC,255:P=PEEK(J1)
600 JS=-((PAND8)=0)
610 JW=-((PAND16)=0)
620 JN=-((PAND4)=0)
630 JF=-((PAND32)=0)
640 TH=PO:T1=L1:T2=L2
650 IFJFTHENGOSUB790:GOTO720
660 IFJETHENPO=PO+2:L1=L1+1:FL=1
670 IFJSTHENPO=PO+44:L2=L2+1:FL=1
680 IFJWTHENPO=PO-2:L1=L1-1:FL=1
690 IFJNTHENPO=PO-44:L2=L2-1:FL=1
700 IFFL=0THEN780
710 POKES2,175
720 IFFG=1THEN780
730 IFPO<SMORPO>SM+207THENPO=TH:L1=T1:L2=T2
740 IFPEEK(PO+1)=32ORPEEK(PO-1)=32THENPO=TH:L1=T1:L2=T2
750 POKETH+CL,0:POKETH,CS:CS=PEEK(PO)
760 POKEPO+CL,2:POKEPO,RL%(L1,L2)
770 FL=0
780 RETURN
790 IFRL%(L1,L2)=LCTHENSC=SC+10:GOTO830
800 IFRF=1THEN910
810 IFRL%(L1,L2)<LCTHEN940
820 GOTO910
830 POKES2,245:FORT=1TO25:NEXT:POKES2,0
840 IFRF=1THENPOKEQ1+26-LC,LC:GOTO860
850 POKEQ1+LC,LC
860 IFRF=1THENLC=LC-1:GOTO880
870 LC=LC+1
880 IFSC>2500THEN900
890 IFLC<>0THENPOKEQ2,LC
900 CS=RL%(L1,L2):GOTO930
910 POKES1,250:FORT=1TO30:NEXT:POKES1,0
920 DL=DL-10:POKE36879,25+MA:GOTO1230
930 PRINTLEFT$(CR$,15)SPC(2)SC"[157]  "
940 IFRF=0THEN970
950 IFLC<>0THEN1230
960 GOTO980
970 IFLC<>26THEN1230
980 IFSC>5000THEN1040
990 AT=AT+DL-TL
1000 IFSC=5000THENDL=INT(AT/20):GOTO1090
1010 IFTL<150THENDL=TL*2+40:GOTO1090
1020 IFTL>300THENDL=TL*.5:GOTO1090
1030 DL=TL
1040 IFSC=6000THENDL=DL-5
1050 IFSC=7000THENDL=DL-5
1060 IFSC=8000THENDL=DL-5
1070 IFSC=9000THENDL=DL-5
1080 IFSC=10000THENDL=DL-5
1090 FORI=1TO3
1100 POKES2,225:FORT=1TO250:NEXT
1110 POKES2,0:FORT=1TO25:NEXT
1120 NEXTI
1130 FORI=1TO2
1140 POKES2,231:FORT=1TO250:NEXT
1150 POKES2,0:FORT=1TO25:NEXT
1160 POKES2,225:FORT=1TO250:NEXT
1170 POKES2,0:FORT=1TO25:NEXT
1180 NEXTI
1190 POKES2,240:FORT=1TO250:NEXT:POKES2,0
1200 IFSC>1250THENRF=1
1210 GOSUB1240
1220 FG=1
1230 RETURN
1240 FORI=1TO25:P%(I)=I:NEXT
1250 FORI=1TO5
1260 FORJ=1TO5
1270 R=INT(RND(1)*25+1)
1280 IFP%(R)=0THEN1270
1290 RL%(I,J)=R
1300 P%(R)=0
1310 NEXTJ
1320 NEXTI
1330 RETURN